home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 October / EnigmA AMIGA RUN 31 (1998)(G.R. Edizioni)(IT)[!][issue 1998-10].iso / earkit / chat / amirc_20 / rexx / barescript.amirx next >
Text File  |  1998-09-22  |  918b  |  38 lines
  1. /* this is an example AmIRC script that includes many important
  2. ** functions and could help you build a script.
  3. ** Feel free to remove comments/unwanted features
  4. */
  5. Options Results  /* Enable rc/result return codes */
  6. signal on syntax /* Enables syntax checking       */
  7. script='Sample'  /* Prefix for echos              */
  8. colour=3         /* Colour fo echos               */
  9.  
  10. /* Begin */
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17. /* End   */
  18. exit
  19.  
  20. /* Shared Functions */
  21. bold:      /* This function bolds text*/
  22. return '02'x||arg(1)||'02'x
  23.  
  24. underline: /* This function underlines text*/
  25. return '1F'x||arg(1)||'1F'x
  26.  
  27. inverse:   /* This function inverses text*/
  28. return '16'x||arg(1)||'16'x
  29.  
  30. cecho:     /* This function echo's text to listview*/
  31. "ECHO P="d2c(27)"b«"script"» C="colour arg(1)
  32. return 0
  33.  
  34. syntax:   /* This function returns where you made a syntax error */
  35. cecho("Command on line" SIGL "returned" RC ":" errortext(rc) sourceline(SIGL))
  36. exit
  37.  
  38.